home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Utilities / PageStreamFilter / Install-Filter < prev    next >
Encoding:
Text File  |  2001-07-04  |  12.6 KB  |  439 lines
  1. ; $VER: Universal V2.1 (04.07.01)
  2. ; Copyright (C)1997-2001 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6. (set @default-dest "")
  7.  
  8. (set univernew 2)  ; Set to the version/revision of Universal filter
  9. (set unirevnew 1)
  10. (set irwvernew 1)  ; Set to the version/revision of IRW library!!!
  11. (set irwrevnew 5)
  12.  
  13. (set #nopgs
  14. (cat    "Sorry, I can't locate the \"Pagestream3:\" or \"Pagestream4:\" drawer containing the PageStream "
  15.     "software. So I can't install the PageStream filter. Please check your "
  16.     "PageStream installation and try again later (assigned in s:User-Startup?)."
  17. ))
  18. ;--------------
  19. (set #founduniver
  20. (cat "\nI found an exisiting Universal filter installation\n(Ver. %ld Rev. %ld).\nPlease select the type of action you want to perform:\n"
  21. ))
  22. (set #founduni
  23. (cat "I found an exisiting Universal filter installation. Please select the type of action you want to perform:"
  24. ))
  25. (set #foundunihelp
  26. (cat "When selecting update, the software will be updated in the Pagestream location found.\n\n"
  27.     @askoptions-help
  28. ))
  29. (set #founduni-choices0
  30. (cat "Remove the filter from your system"
  31. ))
  32. (set #founduni-choices1
  33. (cat "Install over existing filter"
  34. ))
  35.  
  36. (set #yes
  37. (cat "YES"
  38. ))
  39. (set #yesupdate
  40. (cat "Yes, overwrite"
  41. ))
  42. (set #nodrawer
  43. (cat "No, abort installation"
  44. ))
  45. ;--------------
  46. (set #foundneweruni
  47. (cat "\nA newer Universal filter Ver. %ld Rev. %ld is already installed on your system. Shall I install the Ver. %ld Rev. %ld library? Select NO to use the already installed filter.\n"
  48. ))
  49. (set #foundnewhelp
  50. (cat "When selecting yes, the Universal filter in your PageStream filter drawer will be overwritten.\n\n"
  51.     "When selecting no, the installation program will abort installing.\n\n"
  52. ))
  53. ;--------------
  54. (set #abortunpack
  55. (cat "\nError occured while running the installation decompression program. "
  56.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  57. ))
  58. ;-------
  59. (set #badfiltversion
  60. (cat    "I did not install the wanted filter for "
  61.     "%s. A newer filter V%ld.%ld is already installed. "
  62. ))
  63. ;-------
  64. (set #nopgsfilt
  65. (cat    "I can't find the drawer %sSoftLogik/Filters for installing "
  66.     "the Universal filter to."
  67. ))
  68. ;-------
  69. (set #waitmsg
  70. (cat "\n\n\n\nWorking. Please wait..."
  71. ))
  72. ;--------------
  73. (set #uniremoved
  74. (cat "\nThe Universal filter was removed from your system.\n"
  75. ))
  76. ;--------------
  77. (set #removeirw
  78. (cat "There is an irw.library Ver. %ld Rev. %ld installed.\n"
  79.     "The Universal filter software installed Ver %ld Rev %ld.\n"
  80.     "Removing the irw library might cause problems with other applications "
  81.     "also using the IRW library (ICS scanner color correction,...).\n"
  82.     "Delete IRW if the Universal filter was the only software using it.\n"
  83.     "When in doubt, keep IRW.\n"
  84. ))
  85. (set #removeirwhelp
  86. (cat "The IRW library is installed in your LIBS: drawer. The library is used "
  87.     "by various applications to read or write images. "
  88. ))
  89. (set #delirw
  90. (cat "Delete IRW"
  91. ))
  92. (set #keepirw
  93. (cat "Keep IRW"
  94. ))
  95. ;--------------
  96. (set #foundnewerirw
  97. (cat "A newer IRW library Ver. %ld Rev. %ld is already installed on your system. Shall I install the Ver. %ld Rev. %ld library? Select NO to use the already installed library.\n"
  98. ))
  99. (set #foundnewirwhelp
  100. (cat "When selecting yes, the IRW library stored in LIBS: will be overwritten.\n\n"
  101.     "When selecting no, the Universal filter will be installed and use the existing IRW library.\n\n"
  102. ))
  103. ;--------------
  104. (set #cputype
  105. (cat "\nPlease select for what type of CPU/FPU hardware should be installed for.\n"
  106. ))
  107. (set #cputype-help
  108. (cat "\nThe filter was written for various CPU's (Central Processor Unit) supported by the Amiga OS. "
  109.     "For instance, if you own a normal Amiga 4000 choose the 68040 FPU version(FPU=Floating Point Unit).\n"
  110.     "Older Amigas like the A500, A600, A1000, A2000 were build with the 68000 CPU.\n"
  111.     "The Amiga 1200 has a 68020 CPU (no FPU!).\n"
  112.     "The Amiga 3000(T) has a 68030 with FPU\n"
  113.     "If your Amiga has accelerator board fitted, please choose the correct "
  114.     "library.\n\nThere can be major speed differences between different versions of the library!!!\n"
  115.     "Note: the 68000 version works with all Amigas but is the slowest.\n\n"
  116.     @askoptions-help
  117. ))
  118.  
  119. (complete 10)
  120.  
  121. ;*** German
  122. (if (= @language "deutsch")
  123. (
  124.     (set #abortunpack
  125.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  126.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  127.     ))
  128.     ;--------------
  129.     (set #nopgs
  130.     (cat    "Leider kann ich Ihre \"Pagestream3:\" oder \"Pagestream4:\" Schublade mit der PageStream "
  131.         "Software nicht finden. Ich kann daher auch keinen neuen Filter installieren. "
  132.         "Bitte prüfen Sie Ihre PageStream Installation (Assign vergessen in s:User-Startup?)."
  133.     ))
  134.     ;--------------
  135.     (set #founduniver
  136.     (cat "\nIch habe einen installierten Universal Filter gefunden (Ver. %ld Rev. %ld).\nBitte wählen Sie eine gewünschte Aktion:\n"
  137.     ))
  138.     (set #founduni
  139.     (cat "\nIch habe eine installierten Universal Filter gefunden. Bitte wählen Sie eine gewünschte Aktion:\n"
  140.     ))
  141.     (set #foundunihelp
  142.     (cat "Wählen Sie entfernen, wird der Filter in der PageStream Filter Schublade gelöscht.\n\n"
  143.         "Wählen Sie neue Installation, können Sie mit der normalen Installation fortfahren.\n\n"
  144.         @askoptions-help
  145.     ))
  146.     (set #founduni-choices0
  147.     (cat "Filter aus dem System entfernen"
  148.     ))
  149.     (set #founduni-choices1
  150.     (cat "Neue Filter Software installieren"
  151.     ))
  152.     (set #yes
  153.     (cat "JA"
  154.     ))
  155.     (set #yesupdate
  156.     (cat "Ja, überschreiben"
  157.     ))
  158.     (set #nodrawer
  159.     (cat "Nein, abbrechen"
  160.     ))
  161.     ;--------------
  162.     (set #foundneweruni
  163.     (cat "\nEine neuere Version %ld Revision %ld des Universal Filters ist bereits auf Ihrem System installiert.\nSoll ich trotzdem die Ver. %ld Rev. %ld des Filters installieren?\nWählen Sie Nein um den vorhandenen Filter weiter zu benutzen.\n"
  164.     ))
  165.     (set #foundnewhelp
  166.     (cat "Wählen Sie ja, dann wird der Universal-Filter in der PageStream Filter Schublade mit einer älteren Version überschrieben.\n\n"
  167.         "Wählen Sie Nein, wird die Installation abgebrochen.\n\n"
  168.     ))
  169.     ;-------
  170.     (set #badfiltversion
  171.     (cat    "Der gewünschte Studio Universal Grafikimport-Filter für das Programm '%s' wurde nicht installiert, "
  172.         "da bereits ein neuerer Filter mit der Version %ld.%ld installiert ist.\n\n"
  173.     ))
  174.     ;-------
  175.     (set #nopgsfilt
  176.     (cat    "Die Schublade %sSoftLogik/Filters kann "
  177.         "für die Installation auf Ihrem System nicht gefunden werden."
  178.     ))
  179.     ;-------
  180.     (set #waitmsg
  181.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  182.     ))
  183.     ;--------------
  184.     (set #uniremoved
  185.     (cat "\nDer Universal Filter wurde von Ihrem System entfernt.\n"
  186.     ))
  187.     ;--------------
  188.     (set #removeirw
  189.     (cat "\nAchtung!\nSoll die IRW Library wirklich gelöscht werden?\n"
  190.         "Ich habe eine installierte IRW Library V.%ld R.%ld gefunden. "
  191.         "Ursprünglich wurde V.%ld R.%ld von dem Universal Filter installiert.\n"
  192.         "Die IRW Library kann auch von anderen Anwendungen "
  193.         "in Gebrauch sein (z.B. vom ICS Farbkorrektur) und sollte dann nicht entfernt werden.\n"
  194.         "Soll die IRW Library wirklich gelöscht werden?\n"
  195.         "Im Zweifel bitte die IRW Library nicht löschen.\n"
  196.     ))
  197.  
  198.     (set #removeirwhelp
  199.     (cat "Die IRW Library wird von Anwendungen zum Lesen und Schreiben von Bilddaten "
  200.         "verwendet. Sie befindet sich normal in der LIBS: Systemschublade."
  201.     ))
  202.     (set #delirw
  203.     (cat "Lösche IRW"
  204.     ))
  205.     (set #keepirw
  206.     (cat "Behalte IRW"
  207.     ))
  208.     ;--------------
  209.     (set #foundnewerirw
  210.     (cat "Eine neuere Version %ld Revision %ld der 'irw.ibrary' ist bereits auf Ihrem System installiert.\nSoll ich trotzdem die Ver. %ld Rev. %ld der Library installieren?\nWählen Sie Nein um die vorhandene Library zu benutzen.\n"
  211.     ))
  212.     (set #foundnewirwhelp
  213.     (cat "Wählen Sie ja, dann wird die 'irw.library' in der LIBS: Schublade mit einer älteren Version überschrieben.\n\n"
  214.         "Wählen Sie Nein, wird der Universal Filter installiert, wobei die schon installierte 'irw.library' benutzt wird.\n\n"
  215.         "Die IRW Library wird zum Lesen und Schreiben von Bilddateien verwendet.\n"
  216.     ))
  217.     ;--------------
  218.     (set #cputype
  219.     (cat "\nBitte wählen Sie, für welchen Prozessor installiert werden soll.\n"
  220.     ))
  221.     (set #cputype-help
  222.     (cat "\nDer Filter wurde für verschiedene Prozessoren erstellt. Bitte wählen Sie den Prozessor (CPU) "
  223.         "und falls vorhanden, die Fließkomma-Einheit (FPU) Ihrer Hardware. "
  224.         "Sollten Sie Ihren Amiga nicht mit einem schnelleren Prozessor erweitert haben, "
  225.         "finden Sie folgende Prozessoren in Ihren Amiga:\n"
  226.         "Amiga 500, 600, 1200, 2000:  CPU 68000\n"
  227.         "Amiga 1200:     CPU 68020 ohne FPU\n"
  228.         "Amiga 3000 (T): CPU 68030 mit FPU\n"
  229.         "Amiga 4000:     CPU 68040 mit FPU\n\n"
  230.         "Die Geschwindigkeitsunterschiede können zwischen den verschiedenen CPU Versionen enorm sein.\n\n"
  231.         @askoptions-help
  232.     ))
  233. ))
  234.  
  235. (complete 40)
  236.  
  237. (working #waitmsg)
  238. (set pgsdrawer "Pagestream3:")
  239. (set guessdrawer (getassign "PageStream3" "a"))
  240. (set inschoice 1)
  241. (set univervalid 0)
  242. (if (= guessdrawer "")
  243. (
  244.     (set guessdrawer (getassign "PageStream4" "a"))
  245.     (set pgsdrawer "Pagestream4:")
  246. ))
  247. (if (<> guessdrawer "")
  248. (
  249.     (if (= (exists (cat pgsdrawer "SoftLogik/Filters")) 2)
  250.     (
  251.         (set ver 0)
  252.         (set rev 0)
  253.         (if (= (exists (cat pgsdrawer "SoftLogik/Filters/Universal.gfilter")) 1)
  254.         (
  255.             (set vernum (getversion (cat pgsdrawer "SoftLogik/Filters/Universal.gfilter")))
  256.             (set ver (/ vernum 65536))
  257.             (set rev (- vernum (* ver 65536) ) )
  258.             (if (OR (<> ver 0) (<> rev 0))
  259.             (
  260.                 (set univervalid 1)
  261.             ))
  262.             (set inschoice (askchoice (prompt (#founduniver ver rev))
  263.                 (help #foundunihelp)
  264.                 (choices #founduni-choices0 #founduni-choices1)
  265.                 (default 1)
  266.                 )
  267.             )
  268.             (working #waitmsg)
  269.         ))
  270.         (complete 50)
  271.         (set irwvervalid 0)
  272.         (set irwver 0)
  273.         (set irwrev 0)
  274.         (if (= (exists "LIBS:irw.library") 1)
  275.         (
  276.             (set vernum (getversion "LIBS:irw.library"))
  277.             (set irwver (/ vernum 65536))
  278.             (set irwrev (- vernum (* irwver 65536) ) )
  279.             (if (OR (<> irwver 0) (<> irwrev 0))
  280.             (
  281.                 (set irwvervalid 1)
  282.             ))
  283.         ))
  284.  
  285.         (complete 60)
  286.         (if (= inschoice 0)
  287.         (
  288.             (set n 0)
  289.             (while (set thisfile (select n  "SoftLogik/Filters/Universal.gfilter"
  290.                 "" ))
  291.             (
  292.                 (set n (+ n 1))
  293.                 (if (exists (cat pgsdrawer thisfile))
  294.                 (
  295.                     (delete (cat pgsdrawer thisfile))
  296.                 ))
  297.             ))
  298.             (if (exists "LIBS:irw.library")
  299.             (
  300.                 (if (askbool (prompt (#removeirw irwver irwrev irwvernew irwrevnew))
  301.                     (choices #delirw #keepirw)
  302.                     (help (#removeirwhelp ))
  303.                     (default 0))
  304.                 (
  305.                     (delete "libs:irw.library")
  306.                 ))
  307.             ))
  308.             (complete 100)
  309.             (message (#uniremoved))
  310.             (exit (quiet))
  311.         )
  312.         (
  313.             (set asknewver 0)
  314.             (if (<> univervalid 0)
  315.             (
  316.                 (if (> ver univernew)
  317.                 (
  318.                     (set asknewver 1)
  319.                 )
  320.                 (
  321.                     (if (= ver univernew)
  322.                     (
  323.                         (if (> rev unirevnew)
  324.                         (
  325.                             (set asknewver 1)
  326.                         ))
  327.                     ))
  328.                 ))
  329.                 (if (<> asknewver 0)
  330.                 (
  331.                     (if (not (askbool (prompt (#foundneweruni ver rev univernew unirevnew))
  332.                         (choices #yesupdate #nodrawer)
  333.                         (help (#foundnewhelp ))
  334.                         (default 0)))
  335.                     (
  336.                         (exit (quiet))
  337.                     ))
  338.                     (working #waitmsg)
  339.                 ))
  340.             
  341.             ))
  342.             (working #waitmsg)
  343.             (complete 65)
  344.  
  345.             (set asknewirwver 0)
  346.             (if (<> irwvervalid 0)
  347.             (
  348.                 (if (> irwver irwvernew)
  349.                 (
  350.                     (set asknewirwver 1)
  351.                 )
  352.                 (
  353.                     (if (= irwver irwvernew)
  354.                     (
  355.                         (if (> irwrev irwrevnew)
  356.                         (
  357.                             (set asknewirwver 1)
  358.                         ))
  359.                     ))
  360.                 ))
  361.                 (if (<> asknewirwver 0)
  362.                 (
  363.                     (if (askbool (prompt (#foundnewerirw irwver irwrev irwvernew irwrevnew))
  364.                         (choices #yesupdate #nodrawer)
  365.                         (help (#foundnewirwhelp ))
  366.                         (default 0))
  367.                     (
  368.                         (set asknewirwver 0)
  369.                     ))
  370.                 ))
  371.             
  372.             ))
  373.  
  374.  
  375.             (working #waitmsg)
  376.             (set deflibtype 0)
  377.             (set CPUStr (database "cpu"))
  378.             (set FPUStr (database "fpu"))
  379.             (if (OR (= CPUStr "68000") (= CPUStr "68010"))
  380.                 (set deflibtype    0)
  381.             )
  382.             (if (OR (= CPUStr "68020") (= CPUStr "68030"))
  383.             (
  384.                 (set deflibtype    1)
  385.             ))
  386.             (if (OR (= CPUStr "68040") (= CPUStr "68060"))
  387.             (
  388.                 (set deflibtype    2)
  389.             ))
  390.             (set libtype  (askchoice (prompt #cputype)
  391.                 (help #cputype-help)
  392.                 (choices "CPU 68000/10"             ;0
  393.                          "CPU 68020/30"             ;1
  394.                          "CPU 68040/60"             ;2
  395.                 )
  396.                 (default deflibtype)
  397.             ))
  398.         
  399.             (set libirwname (select libtype  "PageStream/irw000.lzh"   ;0
  400.                 "PageStream/irw020.lzh"                            ;1
  401.                 "PageStream/irw060.lzh"                            ;2
  402.             ))
  403.             (complete 70)
  404.  
  405.             (working #waitmsg)
  406.             (copyfiles (source "lx")
  407.                 (dest "t:")
  408.                 (nogauge)
  409.             )
  410.             (working #waitmsg)
  411.             (set exerr (run (cat "T:lx x PageStream/Universal.lzh " pgsdrawer "SoftLogik/Filters")))
  412.             (if (> exerr 0)
  413.             (
  414.                 (abort (#abortunpack "PageStream/Universal.lzh"))
  415.             ))
  416.             (complete 80)
  417.             (working #waitmsg)
  418.             (if (= asknewirwver 0) ; Are we allowed to install the library?
  419.             (
  420.                 (set exerr (run (cat "T:lx x " libirwname " \"LIBS:\"")))
  421.                 (if (> exerr 0)
  422.                 (
  423.                     (abort (#abortunpack libirwname))
  424.                 ))
  425.             ))
  426.             (complete 95)
  427.             (delete "t:lx")
  428.             (run "mylibflush")
  429.         ))
  430.     )
  431.     (
  432.         (abort (#nopgsfilt pgsdrawer))
  433.     ))
  434. )
  435. (
  436.     (abort #nopgs)
  437. ))
  438. (complete 100)
  439.